Código fuente de 'Reemplaza caracteres especiales en cadena.asp'
<html>
<head>
<title>Reemplaza caracteres especiales en cadena - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Reemplaza caracteres especiales en cadena</font></b>
<body style="font-family: Arial; font-size: 11pt">
</p>
Reemplaza caracteres especiales en una cadena por otra cadena que se pasa como parámetro:<br>
<br>
<b>Ejemplos:</b><br>
EliminaCarEsp("4Çds?¿*sdk*¿¡¡¡","-o-") --> <% response.write EliminaCarEsp("4Çds?¿*sdk*¿¡¡¡","-o-")%><br>
EliminaCarEsp("4Çds?¿*sdk*¿¡¡¡","-") --> <%response.write EliminaCarEsp("4Çds?¿*sdk*¿¡¡¡","-") %>
<%
function EliminaCarEsp(cadena,reemplazo)
for n=0 to 255
if n<48 or n>122 or (n>57 and n<65) or (n>90 and n<97) then
cadena=replace(cadena,chr(n),reemplazo)
end if
next
EliminaCarEsp=cadena
End function
%>
</body></html>